/* psc.t   PRODUCT STRUCTURE CREATE TRIGGER                                 */

TRIGGER PROCEDURE FOR CREATE OF PS_MSTR.

{mfdeclre.i }

	HK:
	do:
        if not can-find ( first dt_mstr where dt_table = "PS_MSTR" and dt_type = "ADD" ) then leave HK.
        
        for first dt_mstr no-lock where dt_table = "PS_MSTR" and dt_type = "ADD" :
        
			run value(global_user_lang_dir + "hk/hktrigadd.p")
       			""						/*old buffer*/
       			"ps_mstr"				/*new buffer*/
       			dt_table				/*table name*/
       			""						/*field name*/
       			dt_type					/*type*/
       			recid(ps_mstr)			/*key*/	
       			ps_mstr.ps_par			/*key1*/
       			ps_mstr.ps_comp			/*key2*/
       			ps_mstr.ps_ref			/*key3*/
       			string(ps_mstr.ps_start)	/*key4*/
       			""						/*key5*/
       			""						/*key6*/
       			""						/*key7*/
       			""						/*key8*/
       			.
			
        end.
	end.
